home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Demos / Igor Demo Pro / 1 PutContentsIn Igor Pro Folder / WaveMetrics Procedures / Graphing / Freeze Graph Size < prev    next >
Encoding:
Text File  |  1994-02-18  |  827 b   |  23 lines  |  [TEXT/IGR0]
  1.  
  2. | This macro can freeze the top graph at its current size. This means that when
  3. | you use the graph in a page layout or when you print it will always be the current
  4. | size. This is useful in some cases to help get WYSIWYG results.  
  5. | 
  6. Macro FreezeGraphSize(doFreeze)
  7.     Variable doFreeze= 1
  8.     Prompt doFreeze,"action",popup "freeze;unfreeze"
  9.     
  10.     PauseUpdate; Silent 1
  11.     if( doFreeze==1 )
  12.         GetWindow kwTopWin,gsize
  13.         Variable gleft= V_left, gtop= V_top,gright= V_right,gbottom= V_bottom
  14.         GetWindow kwTopWin,psize
  15.         Variable pleft= V_left, ptop= V_top,pright= V_right,pbottom= V_bottom
  16.         ModifyGraph margin(left)=pleft-gleft,margin(top)=ptop-gtop
  17.         ModifyGraph margin(right)=gright-pright,margin(bottom)=gbottom-pbottom
  18.         ModifyGraph width=pright-pleft,height=pbottom-ptop
  19.     else
  20.         ModifyGraph margin=0,width=0,height=0
  21.     endif
  22. end
  23.